home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vivid / getat2.dir / 00078_Script_78 < prev    next >
Text File  |  1996-11-09  |  2KB  |  80 lines
  1. on mouseDown
  2.   global resize,select
  3.   if select then exit
  4.   if not resize then
  5.     
  6.     set list_old=[0,0,0,0,0]
  7.     set count=1
  8.     --mette i filmati presenti ad off
  9.     repeat with Loop in [32,33,39,40,41] 
  10.       if the casttype of cast (the castnum of sprite Loop) = #digitalvideo then
  11.         if the visible of sprite Loop then 
  12.           set rv=the castnum of  sprite Loop
  13.           set the video of cast rv to false
  14.           --updatestage
  15.           setat list_old,count,the castnum of sprite Loop
  16.           set the castnum of sprite Loop to 86
  17.           --updatestage
  18.           set the video of cast rv to true
  19.           
  20.           
  21.           
  22.         end if
  23.       end if
  24.       updatestage
  25.       set  count = count+1
  26.     end repeat
  27.     
  28.     -- simula il moveable
  29.     set SPRITE_=36
  30.     
  31.     repeat while the mouseDown
  32.       -- set the loch of sprite SPRITE_ to the mouseH
  33.       -- set the locv of sprite SPRITE_ to the mouseV
  34.       updatestage
  35.     end repeat
  36.     
  37.     set count=1
  38.     --mette i filmati presenti ad on
  39.     repeat with Loop in [32,33,39,40,41] 
  40.       
  41.       if getat (list_old,Count) then 
  42.         set the castnum of sprite Loop to getat (list_old,Count)
  43.       end if
  44.       set count =count +1
  45.       
  46.     end repeat
  47.     updatestage
  48.     
  49.     
  50.   else
  51.     global RESIZE,LARGHEZZA,PaginaCorrente,COUNTER
  52.     set MYSPRITE=36
  53.     set Corrente=getat(LARGHEZZA,PaginaCorrente)
  54.     
  55.     set the CAST1 of Corrente=COUNTER
  56.     set text_ to the text of cast (the castnum of sprite MYSPRITE)
  57.     if COUNTER=1 then
  58.       set the castNum of sprite MYSPRITE = 41
  59.     else if COUNTER=2 then
  60.       set the castnum of sprite MYSPRITE =66
  61.     else if COUNTER=3 then
  62.       set the castnum of sprite MYSPRITE =67
  63.     else if COUNTER=4 then
  64.       set the castnum of sprite MYSPRITE =117
  65.     else if COUNTER=5 then
  66.       set the castnum of sprite MYSPRITE =118
  67.     else
  68.       set the castnum of sprite MYSPRITE =119
  69.     end if
  70.     
  71.     
  72.     
  73.     set the text of cast (the castnum of sprite MYSPRITE) to text_
  74.     
  75.   end if
  76.   set COUNTER=COUNTER+1
  77.   if COUNTER>6 then set COUNTER = 1
  78.   updatestage
  79. end
  80.